
******************
**** Figure 1 ****
******************

use "$data/paymentdata_ready" , clear

hist preratio if t==1 & preratio<3 & treatmentall!=., frac color(gs8) ylabel(0(0.05)0.3, grid glcolor(gs14) gmax gmin angle(0) format(%9.2f)) xlabel(0 "0%" 0.5 "50%" 1 "100%" 1.5 "150%" 2.0 "200%" 2.5 "250%" 3 "300%") title(Histogram of Collection Efficiency, color(black)) subt(Pre-intervention year (June 2016 - May 2017)) graphregion(color(white)) xtitle(Collection efficiency) ytitle(Fraction of customers) 


graph export "$filepath/output_logs/figure 1.pdf", replace
